Garbo/Garbo.cdr/mac/hypercrd/hc2_x/sftwrlbr.sea/Software Librarian/background_2667.xml

Extensible Markup Language | 1991-01-05 | 21KB | 553 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2667</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3610.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3306.css" />
    <part>
        <id>76</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>120</left>
            <top>53</top>
            <right>491</right>
            <bottom>73</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textHeight>16</textHeight>
        <name>Author</name>
        <script></script>
    </part>
    <part>
        <id>101</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <true /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>120</left>
            <top>73</top>
            <right>491</right>
            <bottom>93</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Archive</name>
        <script></script>
    </part>
    <part>
        <id>87</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>120</left>
            <top>94</top>
            <right>257</right>
            <bottom>111</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Date</name>
        <script></script>
    </part>
    <part>
        <id>102</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>332</left>
            <top>57</top>
            <right>423</right>
            <bottom>122</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Format</name>
        <script></script>
    </part>
    <part>
        <id>104</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>355</left>
            <top>307</top>
            <right>457</right>
            <bottom>322</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>sorted by</name>
        <script></script>
    </part>
    <part>
        <id>105</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>23</left>
            <top>21</top>
            <right>401</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>18</textSize>
        <textStyle>bold</textStyle>
        <textHeight>24</textHeight>
        <name>SoftName</name>
        <script></script>
    </part>
    <part>
        <id>110</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>14</left>
            <top>20</top>
            <right>496</right>
            <bottom>49</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>BasicBlack</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>432</left>
            <top>25</top>
            <right>454</right>
            <bottom>43</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6043</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>prev</name>
        <script>on mouseUpset hilite of me to truevisual effect wipe rightgo to prev card of bg "software library"end mouseUp</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>459</left>
            <top>25</top>
            <right>483</right>
            <bottom>44</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>6044</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next</name>
        <script>on mouseUpset hilite of me to truevisual effect wipe leftgo to next cd of bg "software library"end mouseUp</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>400</left>
            <top>24</top>
            <right>427</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15993</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Home</name>
        <script>on mouseUpset cursor to watchvisual effect iris opengo homeend mouseUp</script>
    </part>
    <part>
        <id>77</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>133</top>
            <right>488</right>
            <bottom>322</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>Info</name>
        <script></script>
    </part>
    <part>
        <id>111</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>18</left>
            <top>53</top>
            <right>119</right>
            <bottom>70</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Label1</name>
        <script></script>
    </part>
    <part>
        <id>112</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>27</left>
            <top>72</top>
            <right>119</right>
            <bottom>89</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Label2</name>
        <script></script>
    </part>
    <part>
        <id>113</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>13</left>
            <top>93</top>
            <right>119</right>
            <bottom>110</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Label3</name>
        <script></script>
    </part>
    <part>
        <id>114</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>342</left>
            <top>94</top>
            <right>465</right>
            <bottom>111</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Size</name>
        <script></script>
    </part>
    <part>
        <id>115</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <true /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>260</left>
            <top>93</top>
            <right>340</right>
            <bottom>110</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Label4</name>
        <script></script>
    </part>
    <content>
        <layer>background</layer>
        <id>104</id>
        <text>bkgnd field 1</text>
    </content>
    <content>
        <layer>background</layer>
        <id>105</id>
        <text>Music Library</text>
    </content>
    <content>
        <layer>background</layer>
        <id>111</id>
        <text>Submitted by:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>112</id>
        <text>Archived as:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>113</id>
        <text>Date archived:</text>
    </content>
    <content>
        <layer>background</layer>
        <id>115</id>
        <text>Size:</text>
    </content>
    <name>Software Library</name>
    <script>On FindSoftglobal SearchTerm, FirstHitask "Find what?" with SearchTermif it is empty then exit FindSoftput it into searchTermfind searchTermif the result is not empty thenanswer "Can't find " & searchTerm with "Cancel"put empty into searchTermexit FindSoftend ifput the short id of this card into FirstHitEnd FindSoftOn FindAgainglobal SearchTerm, FirstHitif SearchTerm is empty thendo FindSoftexit FindAgainend iflock Screengo next cardfind searchTermif the result is not empty thenanswer "Can't find " & searchTerm with "Cancel"put empty into searchTermexit FindAgainend ifget the short id of this cardif it = FirstHit thenanswer "No more matches" with "Cancel"put empty into searchTermput empty into FirstHitend ifunlock ScreenEnd FindAgainOn SortSoftanswer "Sort by" with "Title" or "Archive" or "Cancel"if it is "Cancel" then exit SortSoftif it is "Archive" then sort this bg by bg field "Archive"if it is "Title" then sort this bg by bg field "SoftName"go to first cd of this bgEnd SortSoftOn BuildMenu---------- Menu created: 12/29/90if "Functions" is not in the menus thenCreate Menu"Functions"Put "Upload..." after Menu "Functions"Put "-" after Menu "Functions"Put "Find..." after Menu "Functions"Put "Find Again" after Menu "Functions"Put "Sort" after Menu "Functions"Set the CmdChar of menuItem 1 of menu "Functions" to "U"Set the CmdChar of menuItem 3 of menu "Functions" to "F"Set the CmdChar of menuItem 4 of menu "Functions" to "E"Set the menumsg of menuItem 1 of menu "Functions" to "GetText"Set the menumsg of menuItem 3 of menu "Functions" to "FindSoft"Set the menumsg of menuItem 4 of menu "Functions" to "FindAgain"Set the menumsg of menuItem 5 of menu "Functions" to "SortSoft"end ifEnd BuildMenuon openCardlock screenset scroll of bg field "Info" to 0unlock screenend openCardon openBackgrounddo BuildMenuput "Go First,Go Last,-" before menuItem 6 of menu "Go" with ¬menuMessages "go first card of this bg,go last cd of this bg,empty"set the CmdChar of menuItem 6 of menu "Go" to "1"set the CmdChar of menuItem 7 of menu "Go" to "4"end openBackgroundon closeBackgrounddelete Menu "Functions"repeat with n = 8 down to 6delete menuItem n of menu "Go"end repeatend closeBackgroundon getTextglobal digestText, archiveDatelock screenput short id of this card into placeHolderput empty into digestTextanswer file "Select a digest" of type "TEXT"if it is empty then exit getTextput it into sourceFileopen file sourceFilerepeatread from file sourceFile for 16384if it is empty then exit repeatput it after digestTextend repeatclose file sourceFileput 0 into nrepeatput line n of digestText into headerTextif "Info-Mac Digest     " is in headerText then exit repeatadd 1 to nend repeatput number of words in headerText into wordCountput word (wordCount-4) to wordCount of headerText into volCheckif volCheck is in bg field "digestList" of card "Tally" thenanswer "This digest was previously loaded.  Load again?" with "Yes" or "No"if it is "No" then exit getTextend ifif volCheck is not in bg field "digestList" of card "Tally" then put volCheck & return after bg field "digestList" of card "Tally"if "[*]" is not in digestText thenanswer "no software uploads in this issue!"go to cd id placeholderexit getTextend ifdelete word 1 to 2 of headerTextconvert headerText to short dateput headerText into archiveDatego to last cd of bg "software library"put short id of this card into placeHolderdo massageDataif bg field "softName" of first cd of bg "software library" = "Sample Card" thengo to first card of bg "software library"doMenu "Delete Card"go to first card of bg "software library"elsego to cd id placeholdergo to the next card of bg "software library"end ifunlock screenend getTexton massageDataglobal digestText, archiveDateput "----------------------------------------------------------------------" & return into bigDashesput "------------------------------" & return into littleDashesput "Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec" into theMonthsput "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31" into theDaysdelete char 1 to (offset(bigDashes, digestText) + 71) of digestTextrepeatset cursor to busyput char 1 to (offset(littleDashes, digestText)-1) of digestText into aRecordif ("[*]" is not in aRecord) and ("[*]" is not in digestText) thenanswer "all software records transferred"exit massageDataend ifif (return & "Subject: [*]") is not in aRecord thendelete char 1 to (offset(littleDashes, digestText) + 31) of digestTextnext repeatend ifif "[Archived as" is not in aRecord thenput char 1 to (offset(littleDashes, digestText) + 31) of digestText into aRecorddelete char 1 to (offset(littleDashes, digestText) + 31) of digestTextrepeat until "Date:" is in the first line of digestTextput char 1 to (offset(littleDashes, digestText) + 31) of digestText after aRecorddelete char 1 to (offset(littleDashes, digestText) + 31) of digestTextend repeatdelete last line of aRecordelsedelete char 1 to (offset(littleDashes, digestText) + 31) of digestTextend ifif short name of this bg = "software library" thendoMenu "New Card"elseanswer "Load aborted - there is a problem with this digest." with "Cancel"exit MassageDataend ifput aRecord into bg field "Info"---- put archive date--put archiveDate into bg field "Date"---- extract submittor--find "From:" in bg field "Info"put value of the foundLine into tempSubmitdelete char 1 to (offset("From:",tempSubmit)+5) of tempSubmitput tempSubmit into bg field "Author"---- extract software name--find "Subject:" in bg field "Info"put value of the foundLine into tempNamedelete char 1 to (offset("[*]",tempName)+3) of tempNameput tempName into bg field "SoftName"---- get archived info--if offset("[Archived as",bg field "Info") > 0 thenfind "[Archived as" in bg field "Info"put value of the foundLine into tempArchivedelete char offset("]",tempArchive) of tempArchiveput last word of tempArchive into bg field "Size"delete last word of tempArchivedelete char offset(";",tempArchive) of tempArchivedelete char 1 to (offset("/",tempArchive)-1) of tempArchiveput tempArchive into bg field "Archive"set the scroll of bg field "Info" to 0end if----end repeatend massageData</script>
</background>